Amiga Format CD 49/Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso/-serious-/comms/other/ctcpmaster/ctcp-master.amirx

Text File | 1999-12-06 | 71KB | 1,615 lines

/* CTCP Master v1.10
 *
 * Monitors AmIRC incoming messages and acts on CTCP messages and DCC
 * requests.  Supports custom commands on channel or by /MSG.
 *
 */

Options Results
Signal On Error
Signal On Syntax
Signal On Halt

If ~show(L,"rexxsupport.library") then Do
  If ~addlib("rexxsupport.library",0,-30,0) then Do
    'Echo Could not access the rexxsupport.library!'
    Exit 20
  End
End
If ~show(L,"rexxreqtools.library") then Do
  If ~addlib("rexxreqtools.library",0,-30,0) then Do
    'Echo Could not access the rexxreqtools.library!'
    Exit 20
  End
End
If ~show(L,"rexxarplib.library") then Do
  If ~addlib("rexxarplib.library",0,-30,0) then Do
    'Echo Could not access the rexxarplib.library!'
    Exit 20
  End
End

Address Value Address()
PortNumber = Right(Address(),2)
If Show("P","CTCP-MASTER"||PortNumber) = 1 then Exit
'ECHO P='d2c(27)'b«CTCPMaster» Starting...'
MyPort = OpenPort("CTCP-MASTER"||PortNumber)

If Exists("AmIRC:Rexx/CTCP-Master.CFG") then Do
  Call Open(In,"AmIRC:Rexx/CTCP-Master.CFG","R")
  Do Until EOF(In)
    CfgLine = ReadLn(In)
    Interpret CfgLine
  End
  Call Close(In)
End
Else Do
  'Echo P='d2c(27)'b«CTCPMaster» Unable to load config file'
  Signal Error
End

LastHost. = "[e-mail]"
LastReason. = "Leaving IRC"

Call ReadOPs

NumFAQ = 0
If Exists("AmIRC:Rexx/CTCP-FAQ") then Do
  Call Open("FAQ","AmIRC:Rexx/CTCP-FAQ","R")
    Do Until EOF("FAQ")
      NumFAQ = NumFAQ + 1
      FAQName.NumFAQ = ReadLn("FAQ")
      FAQText.NumFAQ = ReadLn("FAQ")
    End
  Call Close("FAQ")
  NumFAQ = NumFAQ - 1
  'ECHO P='d2c(27)'b«CTCPMaster» Loaded 'NumFAQ' FAQs...'
End

NumQuits = 0
If Exists("AmIRC:Rexx/CTCP-QuitMsgs") then Do
  Call Open("QM","AmIRC:Rexx/CTCP-QuitMsgs","R")
    Do Until EOF("QM")
      NumQuits = NumQuits + 1
      QuitText.NumQuits = ReadLn("QM")
    End
  Call Close("QM")
  NumQuits = NumQuits - 1
  If NumQuits = 0 then Do
    NumQuits = 1
    QuitText.1 = "Bye!"
  End
  'ECHO P='d2c(27)'b«CTCPMaster» Loaded 'NumQuits' Quit Messages...'
End

NumPings = 0
If Exists("AmIRC:Rexx/CTCP-Pings") then Do
  Call Open("Ping","AmIRC:Rexx/CTCP-Pings","R")
    Do Until EOF("Ping")
      NumPings = NumPings + 1
      PingPhrase.NumPings = ReadLn("Ping")
    End
  Call Close("Ping")
  NumPings = NumPings - 1
  If NumPings = 0 then Do
    NumPings = 1
    PingPhrase.1 = "PONG!"
  End
  'ECHO P='d2c(27)'b«CTCPMaster» Loaded 'NumPings' PING Responses...'
  NextPing = 1
End

NumUsers = 0
GetServerName ; Server = Result
Server = Translate(Server,' ','.')
Server = SubWord(Server,Words(Server)-1)
Server = Translate(Server,'.',' ')
'ECHO P='d2c(27)'b«CTCPMaster» Connected on server 'Server', now looking for QuitLog.'
If Exists("AmIRC:Rexx/CTCP-QuitLog."||Server) then Do
  NumUsers = 1
  Call Open("QuitLog","AmIRC:Rexx/CTCP-QuitLog."||Server,"R")
    Do Until EOF("QuitLog")
      Line = ReadLn("QuitLog")
      If Length(Line) = 0 then Leave
      UserNick.NumUsers.0 = Word(Line,1)
      Temp = UserNick.NumUsers.0
      Do ILoop = 1 to Temp
        UserNick.NumUsers.ILoop = Word(Line,ILoop+1)
      End
      UserChan.NumUsers = Word(Line,Temp + 2)
      UserQuit.NumUsers = Word(Line,Temp + 3)||" "||Word(Line,Temp + 4)
      If Words(Line) > Temp + 4 then Do
        LastHost.NumUsers = Word(Line,Temp + 5)
        LastReason.NumUsers = SubWord(Line,Temp + 6)
      End
      NumUsers = NumUsers + 1
    End
  Call Close("QuitLog")
  NumUsers = NumUsers - 1
  'ECHO P='d2c(27)'b«CTCPMaster» Loaded 'NumUsers' Users...'
End
Call RateList

LastLine = ""
CRNL = "0d0a"x

MainLoop:
GetMyNick ; MyNick = Result
GetLine
If Line = LastLine then Signal MainLoop
NickAddress = Word(Line,1)
Parse Var NickAddress ':'Nick'!'HA
LastHost.0 = HA
HA = Upper(HA)
Type = Upper(Word(Line,2))
ToWho = Word(Line,3)
Rest = Subword(Line,4)
Parse Var Rest ':'Rest
If (Type = "JOIN") & (NumOps > 0) & (Upper(Nick) ~= Upper(MyNick)) then Do
  GetUsers
  ThePeeps = Result
  HaveOPs = 0
  If Find(ThePeeps,'@'MyNick) = 0 then Signal MainLoop
  Rest = Upper(SubStr(ToWho,2))
  Call GetMask
  Do OpLoop = 1 to NumOps
    If (HA = OpHost.OpLoop) & (Rest = Upper(OpChannel.OpLoop)) then Do
      'ECHO P='d2c(27)'b«CTCPMaster» Detected 'Nick' ('HA'), attempting to Auto-OP'
      'SAY /OP 'OpChannel.OpLoop' 'Nick
    End
  End
End
If (Type = "PRIVMSG") & (Upper(Nick) = Upper(MyNick)) & (LastLine ~= "") then Do
  If Upper(Word(Rest,1)) = "#HELP" then Do
    'ECHO P='d2c(27)'b«CTCPMaster» Available Commands...'
    'ECHO P='d2c(27)'b«CTCPMaster» #STOP  #QUIT  #SOUND  #AWAY  #OPS  #SHOWOPS  #FAQKILL  #FAQADD  #FAQREAD'
    'ECHO P='d2c(27)'b«CTCPMaster» /CTCP Commands: PING  SOUND  PAGE  USERINFO'
    'ECHO P='d2c(27)'b«CTCPMaster» 'Trigger' Commands: '||Trigger||'TEACH  '||Trigger||'COUNTRY  '||Trigger||'TIME  '||Trigger||'SEEN  '||Trigger||'FAQADD  '||Trigger||'FAQ  '||Trigger||'CONVERT '||Trigger||'CURRENCY '||Trigger||'EXCHANGE  '||Trigger||'SHOWCOMMANDS  '||Trigger||'HELP  '||Trigger||'FIND  '||Trigger||'TRANSLATE  '||Trigger||'MONTH  '||Trigger||'DNS  '
  End
  If Upper(Word(Rest,1)) = "#STOP" then Do
    'ECHO P='d2c(27)'b«CTCPMaster» Exiting...'
    Call ClosePort("CTCP-MASTER")
    Exit
  End
  If Upper(Word(Rest,1)) = "#QUIT" then Do
    PickQuit = Random(1,NumQuits,Time(S))
    'SAY /QUIT 'QuitText.PickQuit
    Call ClosePort("CTCP-MASTER")
    Exit
  End
  If Upper(Word(Rest,1)) = "#SOUND" then Do
    GetChannel ; ToWhom = Result
    ToWhom = RtGetString(ToWhom,"   CTCP Sound UserName   ","CTCP-Master.Amirx © 1997 Digital Euphoria","_OK|_Cancel","rt_pubscrname='"PubScreen"'",Option)
    If Option = 0 then Signal MainLoop
    SoundFile = RtFilerequest(SoundDir, SoundFile,"CTCP-Master.Amirx © 1997 Digital Euphoria","_Send|_Cancel","rt_pubscrname='"PubScreen"'",Option)
    SoundFile = Translate(Soundfile,"  ",":/")
    SoundFile = Word(SoundFile,Words(SoundFile))
    If Option = 0 then Signal MainLoop
    If Option = 1 then 'Say /CTCP 'ToWhom' Sound 'SoundFile
  End
  If Upper(Word(Rest,1)) = "#AWAY" then Do
    If Exists("Env:Away") then Do
      Call Delete("Env:Away")
      'SAY /ME is back.'
    End
    Else Do
      Reason = SubWord(Rest,2)
      Call Open(Away,"Env:Away","W")
        Call WriteLn(Away,Reason)
      Call Close(Away)
      'SAY /ME is 'd2c(2)'AWAY'd2c(2)' - 'Reason' - /CTCP 'MyNick' PAGE {reason}'
    End
  End
  If Upper(Word(Rest,1)) = "#OPS" then Do
    If Words(Rest) = 3 then Do
      FountIt = 0
      Nickname = Word(Rest,2)
      Chan = Word(Rest,3)
      GetUsers ; UserList = Compress(Result,"@+")
      Do ULoop = 1 to Words(UserList)
        If Upper(NickName) = Upper(Word(UserList,ULoop)) then Do
          NickName = Word(UserList,ULoop)
          FoundIt = 1
        End
      End
      If FoundIt = 1 then Do
        UserHost Nickname ; HA = Result
        Call GetMask
        NumOps = NumOps + 1
        OpHost.NumOps = HA
        OpChannel.NumOps = Chan
        OpNick.NumOps = NickName
        Call WriteOps
        'ECHO P='d2c(27)'b«CTCPMaster» Added 'OpNick.NumOps' ('OpHost.NumOps') to Auto-OP List...'
      End
    End
    Else If Words(Rest) = 4 then Do
      Kill = Word(Rest,2)
      If Kill ~= "-" then Signal MainLoop
      Nickname = Word(Rest,3)
      Chan = Word(Rest,4)
      Remove = 0
      Do Loop = 1 to NumOps
        If (Upper(Nickname) = Upper(OpNick.Loop)) & (Upper(Chan) = Upper(OpChannel.Loop)) then Remove = Loop
      End
      If Remove > 0 then Do
        Do Loop = Remove to (NumOps - 1)
          X = Loop + 1
          OpHost.Loop = OpHost.X
          OpChannel.NumOps = OpChannel.X
          OpNick.NumOps = OpNick.X
        End
        NumOps = NumOps - 1
        Call WriteOps
        'ECHO P='d2c(27)'b«CTCPMaster» Removed 'Nickname' from Auto-OP List...'
      End
    End
    Else Call ReadOPs
  End
  If Upper(Word(Rest,1)) = "#SHOWOPS" then Do
    Do Loop = 1 to NumOps
      'ECHO P='d2c(27)'b«CTCPMaster» Monitoring 'OpNick.Loop' ('OpHost.Loop') on Channel 'OpChannel.Loop'...'
    End
  End
  If (Upper(Word(Rest,1)) = "#FAQKILL") & (NumFAQ > 0) then Do
    FAQFound = 0 ; DelFAQ = 0
    Do FAQLoop = 1 to NumFAQ
      If Upper(Word(Rest,2)) = FAQName.FAQLoop then Do
        FAQFound = 1
        DelFAQ = FAQLoop
      End
    End
    Do FAQLoop = DelFAQ to NumFAQ - 1
      OldFAQ = FAQLoop + 1
      FAQName.FAQLoop = FAQName.OldFAQ
      FAQText.FAQLoop = FAQText.OldFAQ
    End
    NumFAQ = NumFAQ - 1
    Call Open(FAQ,"AmIRC:Rexx/CTCP-FAQ","W")
      Do FAQLoop = 1 to NumFAQ
        Call WriteLn("FAQ",FAQName.FAQLoop)
        Call WriteLn("FAQ",FAQText.FAQLoop)
      End
      'ECHO P='d2c(27)'b«CTCPMaster» FAQ 'd2c(2)||Upper(Word(Rest,2))||d2c(2)' has been removed from the database.'
    Call Close("FAQ")
  End
  If Upper(Word(Rest,1)) = "#FAQADD" then Do
    FAQFound = 0
    If NumFAQ > 0 then Do
      Do FAQLoop = 1 to NumFAQ
        If Upper(Word(Rest,2)) = FAQName.FAQLoop then Do
          FAQText.FAQLoop = SubWord(Rest,3)
          FAQFound = 1
        End
      End
    End
    If FAQFound = 0 then Do
      NumFAQ = NumFAQ + 1
      FAQName.NumFAQ = Upper(Word(Rest,2))
      FAQText.NumFAQ = SubWord(Rest,3)
    End
    Call Open(FAQ,"AmIRC:Rexx/CTCP-FAQ","W")
      Do FAQLoop = 1 to NumFAQ
        Call WriteLn("FAQ",FAQName.FAQLoop)
        Call WriteLn("FAQ",FAQText.FAQLoop)
      End
      'ECHO P='d2c(27)'b«CTCPMaster» FAQ 'd2c(2)||Upper(Word(Rest,2))||d2c(2)' has been added to the database.'
    Call Close("FAQ")
  End
  If Upper(Word(Rest,1)) = "#FAQREAD" then Do
    NumFAQ = 0
    If Exists("AmIRC:Rexx/CTCP-FAQ") then Do
      Call Open("FAQ","AmIRC:Rexx/CTCP-FAQ","R")
        Do Until EOF("FAQ")
          NumFAQ = NumFAQ + 1
          FAQName.NumFAQ = ReadLn("FAQ")
          FAQText.NumFAQ = ReadLn("FAQ")
        End
      Call Close("FAQ")
      NumFAQ = NumFAQ - 1
      'ECHO P='d2c(27)'b«CTCPMaster» Loaded 'NumFAQ' FAQs...'
    End
  End
End
If (Type = "QUIT") | (Type = "PART") then Do
  If Type = "PART" then Channel = ToWho
  Else Channel = "IRC"
  HA = LastHost.0 ; Call GetMask
  Found = 0
  If NumUsers > 0 then Do QuitLoop = 1 to NumUsers
    If Upper(HA) = Upper(LastHost.QuitLoop) then Do
      Found = 1
      NFound = 0
      Do ILoop = 1 to UserNick.QuitLoop.0
        If Upper(UserNick.QuitLoop.ILoop) = Upper(Nick) then NFound = 1
      End
      If NFound = 0 then Do
        UserNick.QuitLoop.0 = UserNick.QuitLoop.0 + 1
        Blah = UserNick.QuitLoop.0
        UserNick.QuitLoop.Blah = Nick
      End
      LastReason.QuitLoop = Strip(SubWord(Line,3),"L",":")
      If (Words(LastReason.QuitLoop) = 2) & (Pos(".",Word(LastReason.QuitLoop,1)) > 0) & (Pos(".",Word(LastReason.QuitLoop,1)) > 0) then LastReason.QuitLoop = "NetSplit!"
      If Type = "PART" then LastReason.QuitLoop = "Left the channel."
      TempTime = Time("M")
      TempDate = Date("I")
      UserQuit.QuitLoop = TempTime||" "||TempDate
      UserChan.QuitLoop = Channel
      Leave QuitLoop
    End
    If Found = 0 then Do
      Do NLoop = 1 to UserNick.QuitLoop.0
        If Upper(Nick) = Upper(UserNick.QuitLoop.NLoop) then Do
          Found = 1
          LastReason.QuitLoop = Strip(SubWord(Line,3),"L",":")
          If (Words(LastReason.QuitLoop) = 2) & (Pos(".",Word(LastReason.QuitLoop,1)) > 0) & (Pos(".",Word(LastReason.QuitLoop,1)) > 0) then LastReason.QuitLoop = "NetSplit!"
          If Type = "PART" then LastReason.QuitLoop = "Left the channel."
          TempTime = Time("M")
          TempDate = Date("I")
          LastHost.QuitLoop = HA
          UserQuit.QuitLoop = TempTime||" "||TempDate
          UserChan.QuitLoop = Channel
          Leave QuitLoop
        End
      End
    End
  End
  If Found = 0 then Do
    NumUsers = NumUsers + 1
    UserNick.NumUsers.0 = 1
    UserNick.NumUsers.1 = Nick
    LastHost.NumUsers = HA
    LastReason.NumUsers = Strip(SubWord(Line,3),"L",":")
    If (Words(LastReason.NumUsers) = 2) & (Pos(".",Word(LastReason.NumUsers,1)) > 0) & (Pos(".",Word(LastReason.NumUsers,1)) > 0) then LastReason.NumUsers = "NetSplit!"
    If Type = "PART" then LastReason.NumUsers = "Left the channel."
    UserChan.NumUsers = Channel
    TempTime = Time("M")
    TempDate = Date("I")
    UserQuit.NumUsers = TempTime||" "||TempDate
  End
  Call Open("QuitLog","AmIRC:Rexx/CTCP-QuitLog."||Server,"W")
    Do QuitLoop = 1 to NumUsers
      Call WriteCh("QuitLog",UserNick.QuitLoop.0||" ")
      Do ILoop = 1 to UserNick.QuitLoop.0
        Call WriteCh("QuitLog",UserNick.QuitLoop.ILoop||" ")
      End
      Call WriteLn("QuitLog",UserChan.QuitLoop||" "||UserQuit.QuitLoop||" "||LastHost.QuitLoop||" "||LastReason.QuitLoop)
    End
  Call Close("QuitLog")
End
If (Type = "PRIVMSG") & (Left(Rest,1) = D2C(1)) & (Right(Rest,1) = D2C(1)) then Do
  Rest = SubStr(Rest,2,Length(Rest)-2)
  If Upper(Word(Rest,1)) = "PING" then Do
    'RAW NOTICE 'NICK' :'PingPhrase.NextPing
    NextPing = NextPing + 1
    If NextPing > NumPings then NextPing = 1
  End
  If Upper(Word(Rest,1)) = "SOUND" then Do
    SoundToPlay = Word(Rest,2)
    If ~Exists(SoundDir||SoundToPlay) then 'SAY /MSG '||NICK||' !'||NICK||' '||SoundToPlay
  End
  If Upper(Word(Rest,1)) = "GETSOUND" then Do
    FileToSend = Word(Rest,2)
    If Exists(SoundDir||FileToSend) then "Say /DCC SEND "Nick" "SoundDir||FileToSend
    Else "Raw Notice "Nick" :Sorry, couldn't find the sound file -> "FileToSend
  End
  If Upper(Word(Rest,1)) = "PAGE" then Do
    Reason = SubWord(Rest,2)
    'ECHO P='d2c(27)'b«CTCPMaster» 'd2c(2)'Paged'd2c(2)' by 'NICK'...'d2c(2)'Reason: 'd2c(2)||Reason
    Address Command PageCmd
  End
  If Upper(Word(Rest,1)) = "USERINFO" | Upper(Word(Rest,1)) = "FINGER" then Do
    'Raw Notice 'Nick' :'d2c(3)'5System:'d2c(3)||'4 '||SysDesc
    'Raw Notice 'Nick' :'d2c(3)'5Location:'d2c(3)||'4 '||Location
    'Raw Notice 'Nick' :'d2c(3)'5EMail:'d2c(3)||'4 '||EMail
    'Raw Notice 'Nick' :'d2c(3)'5HomePage:'d2c(3)||'4 '||HomePage
    'Raw Notice 'Nick' :'d2c(3)'5Comment:'d2c(3)||'4 '||Comment
    'Raw Notice 'Nick' :'d2c(3)'4This reply brought to you by CTCP-Master.AMIRX v1.10'
  End
End
If (Type = "PRIVMSG") & (Upper(Word(Rest,1)) = Trigger||Upper(MyNick)) then Do
  FileToSend = Word(Rest,2)
  If Upper(Right(FileToSend,4)) = ".MP3" then Do
    If Exists(MP3Dir||FileToSend) then "Say /DCC SEND "Nick" "MP3Dir||FileToSend
    Else "Raw Notice "Nick" :Sorry, couldn't find the MP3 file -> "FileToSend
  End
  If Upper(Right(FileToSend,4)) = ".WAV" then Do
    If Exists(SoundDir||FileToSend) then "Say /DCC SEND "Nick" "SoundDir||FileToSend
    Else "Raw Notice "Nick" :Sorry, couldn't find the sound file -> "FileToSend
  End
End
If (Type = "PRIVMSG") & ((Upper(Word(Rest,1)) = Trigger||"COUNTRY") | (Upper(Word(Rest,1)) = Trigger||"WHERE")) then Do
  FindIt = SubWord(Rest,2)
  If ~Exists("AmIRC:Rexx/Country-Codes.TXT") Then Do
    'Echo P='d2c(27)'b«CTCPMaster» Unable to find AmIRC:Rexx/Country-Codes.TXT'
    Signal MainLoop
  End
  Call Open(Listing,"Amirc:Rexx/Country-Codes.TXT","R")
    FoundIt = FindIt||" was not found in the Database!"
    Do Until EOF(Listing)
      Line = ReadLn(Listing)
      If Upper(Word(Line,1)) = Upper(FindIt) then FoundIt = Upper(FindIt)||" is "SubWord(Line,2)
      If Upper(SubWord(Line,2)) = Upper(FindIt) then FoundIt = "Apparently, "SubWord(Line,2)" is "Upper(Word(Line,1))
    End
  Call Close(Listing)
  If Upper(ToWho) = Upper(MyNick) then Do
    'Raw Notice 'Nick' :'FoundIt
  End
  Else Do
    'Say /Notice 'ToWho' 'Nick': 'FoundIt
  End
End
If (Type = "PRIVMSG") & (Upper(Word(Rest,1)) = Trigger||"SHOWCOMMANDS") | (Upper(Word(Rest,1)) = Trigger||"HELP") then Do
  'Raw Notice 'Nick' :Available Commands...'
  'Raw Notice 'Nick' :/CTCP Commands: PING  SOUND  PAGE  USERINFO'
  'Raw Notice 'Nick' :'||Trigger||' Commands: '||Trigger||'TEACH  '||Trigger||'COUNTRY  '||Trigger||'TIME  '||Trigger||'SEEN  '||Trigger||'FAQADD  '||Trigger||'FAQ  '||Trigger||'CONVERT  '||Trigger||'CURRENCY  '||Trigger||'EXCHANGE  '||Trigger||'SHOWCOMMANDS  '||Trigger||'HELP  '||Trigger||'FIND  '||Trigger||'TRANSLATE  '||Trigger||'MONTH  '||Trigger||'DNS'
End
If (Type = "PRIVMSG") & (Upper(Word(Rest,1)) ="YAWN") then Do
  GetChannel ; Chan = Upper(Result)
  If Chan="#FRISKYS-PLACE" then Do
    'Say /kick #friskys-place 'nick' yawning is not allowed, you''re excused <giggle> Hurry Back!!!'
  End
End
If (Type = "PRIVMSG") & (Upper(Word(Rest,1)) = Trigger||"TIME") then Do
  DayPlus = 0
  TempTime = Time(H) + GMTOffSet
  If TempTime > 23 then Do
    TempTime = TempTime - 24
    DayPlus = 1
  End
  If TempTime < 0 then Do
    TempTime = TempTime + 24
    DayPlus = -1
  End
  TempTime = Right("0"||TempTime,2)||SubStr(Time(),3)
  TempDate = Translate(Date(N,Date(I)+DayPlus,I),"-"," ")
  If Upper(ToWho) = Upper(MyNick) then Do
    "Raw Notice "Nick" :The current time is "TempTime", "TempDate" GMT."
  End
  Else Do
    "Say /Notice "ToWho" "Nick": The current time is "TempTime", "TempDate" GMT."
  End
End
If (Type = "PRIVMSG") & ((Upper(Word(Rest,1)) = Trigger||"DNS") | (Upper(Word(Rest,1)) = Trigger||"NSLOOKUP")) then Do
  HostToFind = Word(Rest,2)
  If Upper(HostToFind) = "-S" then Do
    HostToFind = SubWord(Rest,2)
  End
  If Pos(".",HostToFind)=0 then Do
    GetUsers ; ThePeeps = Result
    Do XLoop = 1 to Words(ThePeeps)
      If Upper(Word(ThePeeps,XLoop))=Upper(HostToFind) | Upper(Word(ThePeeps,XLoop))=Upper("@"||HostToFind) Then Do
        UserHost HostToFind ; HostToFind = Result
        HostToFind = Word(Translate(HostToFind," ","@"),2)
      End
    End
  End
  Address Command ("Miami:MiamiResolve "||HostToFind||" >Ram:DNS.Result")
  Call Open(In,"Ram:DNS.Result","R")
    DNS1= ReadLn(In)
    If Word(DNS1,1) = "service:" then Do
      DNS2 = ReadLn(In)
      If DNS2 = "aliases:" then Do Forever
        DNS3 = ReadLn(In)
        If Word(DNS3,1) = "port:" then leave
      End
      If Upper(ToWho) = Upper(MyNick) then Do
        "Raw Notice "Nick" :"d2c(2)||DNS1||d2c(2)||" is mapped to "d2c(2)||Strip(DNS3)||d2c(2)
      End
      Else Do
        "Say /Notice "ToWho" "Nick": "||d2c(2)||DNS1||d2c(2)||" is mapped to "d2c(2)||Strip(DNS3)||d2c(2)
      End
    End
    Else If Word(DNS1,1) = "host:" then Do
      DNS2= ReadLn(In)
      DNS3= ReadLn(In)
      If Upper(ToWho) = Upper(MyNick) then Do
        "Raw Notice "Nick" :"DNS1" is "Strip(DNS3)
      End
      Else Do
        "Say /Notice "ToWho" "Nick": "DNS1" is "Strip(DNS3)
      End
    End
    Else Do
      If Upper(ToWho) = Upper(MyNick) then Do
        "Raw Notice "Nick" :"DNS1
      End
      Else Do
        "Say /Notice "ToWho" "Nick": "DNS1
      End
    End
  Call Close(In)
End
If (Type = "PRIVMSG") & (Upper(Word(Rest,1)) = Trigger||"PHOTO") then Do
  If Exists(Photo) then "Say /DCC SEND "Nick" "Photo
End
If (Type = "PRIVMSG") & (Upper(Word(Rest,1)) = Trigger||"CALC") then Do
  Expression = "Math = "||SubWord(Rest,2)
  Interpret Expression
  If Upper(ToWho) = Upper(MyNick) then Do
    "Raw Notice "Nick" :Answer is "||d2c(2)||Math||d2c(2)
  End
  Else Do
    "Say /Notice "ToWho" "Nick": Answer is "||d2c(2)||Math||d2c(2)
  End
End
If (Type = "PRIVMSG") & (Upper(Word(Rest,1)) = Trigger||"FAQLIST") & (NumFAQ > 0) then Do
  Response = ""
  Do FAQLoop = 1 to NumFAQ
    Response = Response||FAQName.FAQLoop||", "
  End
  Response = Strip(Response)
  Response = Strip(Response,"T",",")
  If Upper(ToWho) = Upper(MyNick) then Do
    "Raw Notice "Nick" : Available FAQs - "d2c(2)||Response||d2c(2)
  End
  Else Do
    "Say /Notice "ToWho" "Nick": Available FAQs - "d2c(2)||Response||d2c(2)
  End
End
If (Type = "PRIVMSG") & (((Upper(Word(rest,1)) = Trigger||"SEEN") | (Upper(Word(rest,1)) = "SEEN")) & Words(Rest) = 2) then Do
  FindNick = Strip(Word(Rest,2),"T","?")
  Found = 0
  GetChannel ; Channel = Result
  If Upper(ToWho) ~= Upper(MyNick) then Channel = ToWho
  Channels ; Joined = Result
  IsOn = 0
  Do CLoop = 1 to Words(Joined)
    'GetUsers Channel='Word(Joined,CLoop) ; OnChannel = " "||Upper(Compress(Result,"@+"))||" "
    If Pos(Upper(" "||FindNick||" "),OnChannel) > 0 then Do
      IsOn = IsOn + 1
      OnChan.IsOn = Word(Joined,CLoop)
    End
  End
  If IsOn > 0 Then Do
    If Upper(FindNick) = Upper(Nick) then Findnick = "You are"
    Else Findnick = Findnick||" is"
    If IsOn = 1 then ReplyStr = FindNick" on "OnChan.1" right now!"
    If IsOn > 1 then Do
      ReplyStr = FindNick" on "
      Do CLoop = 1 to IsOn - 1
        ReplyStr = ReplyStr||OnChan.CLoop||" "
      End
      ReplyStr = ReplyStr||"and "||OnChan.IsOn||" right now!"
    End
    If Upper(ToWho) = Upper(MyNick) | QuietSeens = 1 then Do
      "Raw Notice "Nick" :"ReplyStr
    End
    Else Do
      "Say /Notice "ToWho" "Nick": "ReplyStr
    End
  End
  If IsOn = 0 then Do
    Do QuitLoop = 1 to NumUsers
      Do ILoop = 1 to UserNick.QuitLoop.0
        If Upper(FindNick) = Upper(UserNick.QuitLoop.ILoop) then Do
          Found = 1
          ReplyText = ""
          TimeThen = Word(UserQuit.QuitLoop,1)
          DateThen = Word(UserQuit.QuitLoop,2)
          TimeNow = Time("M")
          DateNow = Date("I")
          DaysAgo = DateNow - DateThen
          TimePast = ABS(TimeNow - TimeThen)
          TempHour = TimePast % 60
          TempMin = TimePast - (TempHour * 60)
          If DaysAgo = 1 then ReplyText = ReplyText||DaysAgo" day, "
          If DaysAgo > 1 then ReplyText = ReplyText||DaysAgo" days, "
          If TempHour = 1 then ReplyText = ReplyText||TempHour" hour, "
          If TempHour > 1 then ReplyText = ReplyText||TempHour" hours, "
          If TempMin = 1 then ReplyText = ReplyText||TempMin" minute ago."
          Else ReplyText = ReplyText||TempMin" minutes ago."
          If Upper(ToWho) = Upper(MyNick) then Do
            "Raw Notice "Nick" :I last saw "UserNick.QuitLoop.ILoop" ("LastHost.QuitLoop") on "UserChan.QuitLoop" "ReplyText" Reason for leaving: "LastReason.QuitLoop
          End
          Else Do
            "Say /Notice "ToWho" "Nick": I last saw "UserNick.QuitLoop.ILoop" ("LastHost.QuitLoop") on "UserChan.QuitLoop" "ReplyText" Reason for leaving: "LastReason.QuitLoop
          End
          Leave QuitLoop
        End
      End
    End
    If Found = 0 then Do
      If Upper(ToWho) = Upper(MyNick) then Do
        "Raw Notice "Nick" :I have not seen "FindNick" on "Channel" yet."
      End
      Else Do
        "Say /Notice "ToWho" "Nick": I have not seen "FindNick" on "Channel" yet."
      End
    End
  End
End
If (Type = "PRIVMSG") & (Upper(Word(rest,1)) = Trigger||"LAST") then Do
  If Words(rest) > 1 then FindNick = Word(rest,2)
  Else FindNick = Nick
  Found = 0
  GetChannel ; Channel = Result
  If Upper(ToWho) ~= Upper(MyNick) then Channel = ToWho
  Do QuitLoop = 1 to NumUsers
    Do ILoop = 1 to UserNick.QuitLoop.0
      If Upper(FindNick) = Upper(UserNick.QuitLoop.ILoop) then Do
        Found = 1
        ReplyText = "Last quit message for "UserNick.QuitLoop.ILoop" was '"d2c(2)||LastReason.QuitLoop||d2c(2)"'"
        If Upper(ToWho) = Upper(MyNick) then Do
          "Raw Notice "Nick " :"ReplyText
        End
        Else Do
          "Say /Notice "ToWho" "Nick": "ReplyText
        End
      End
    End
  End
  If Found = 0 then Do
    If Upper(ToWho) = Upper(MyNick) then Do
      "Raw Notice "Nick" :I have not seen a /QUIT message from "FindNick" on "Channel" yet."
    End
    Else Do
      "Say /Notice "ToWho" "Nick": I have not seen a /QUIT message from "FindNick" on "Channel" yet."
    End
  End
End
If (Type = "PRIVMSG") & (Upper(Word(Rest,1)) = Trigger||"FAQADD") then Do
  FAQFound = 0
  If NumFAQ > 0 then Do
    Do FAQLoop = 1 to NumFAQ
      If Upper(Word(Rest,2)) = FAQName.FAQLoop then Do
        FAQFound = 1
        If Upper(ToWho) = Upper(MyNick) then Do
          "Raw Notice "Nick" : «FAQ» "d2c(2)||Upper(Word(Rest,2))||d2c(2)" already exists in the database!"
        End
        Else Do
          "Say /Notice "ToWho" «FAQ» "d2c(2)||Upper(Word(Rest,2))||d2c(2)" already exists in the database!"
        End
      End
    End
  End
  If FAQFound = 0 then Do
     NumFAQ = NumFAQ + 1
    FAQName.NumFAQ = Upper(Word(Rest,2))
    FAQText.NumFAQ = SubWord(Rest,3)
    Call Open(FAQ,"AmIRC:Rexx/CTCP-FAQ","W")
      Do FAQLoop = 1 to NumFAQ
        Call WriteLn("FAQ",FAQName.FAQLoop)
        Call WriteLn("FAQ",FAQText.FAQLoop)
      End
      If Upper(ToWho) = Upper(MyNick) then Do
        "Raw Notice "Nick" : «FAQ» "d2c(2)||Upper(Word(Rest,2))||d2c(2)" has been added to the database."
      End
      Else Do
        "Say /Notice "ToWho" «FAQ» "d2c(2)||Upper(Word(Rest,2))||d2c(2)" has been added to the database."
      End
    Call Close("FAQ")
  End
End
If (Type = "PRIVMSG") & (Upper(Word(Rest,1)) = Trigger||"FAQ") & (NumFAQ > 0) then Do
  FAQFound= 0
  Do FAQLoop = 1 to NumFAQ
    If FAQName.FAQLoop = Upper(Word(Rest,2)) Then Do
      Response = FAQText.FAQLoop
      FAQFound = 1
    End
  End
  If FAQFound = 1 then Do
    If Upper(ToWho) = Upper(MyNick) then Do
      "Raw Notice "Nick" : «FAQ» "d2c(2)||Upper(Word(Rest,2))||d2c(2)" - "Response
    End
    Else Do
      "Say /Notice "ToWho" «FAQ» "d2c(2)||Upper(Word(Rest,2))||d2c(2)" - "Response
    End
  End
End
If (Type = "PRIVMSG") & (Upper(Word(Rest,1)) = Trigger||"CONVERT") then Do
  CnvtNum  = Word(Rest,2)
  CnvtFrom = Upper(Word(Rest,3))
  CnvtTo   = Upper(Word(Rest,4))
  NewNum = "NOT!"
  If Upper(CnvtNum) = "LIST" |  DataType(CnvtNum,"N") = 0 then do
    'RAW NOTICE 'NICK' :Conversion options include the following.'
    'RAW NOTICE 'NICK' :Measurements: 'd2c(2)'MM'd2c(2)','d2c(2)' CM'd2c(2)','d2c(2)' M'd2c(2)','d2c(2)' KM'd2c(2)' <--> 'd2c(2)'IN'd2c(2)','d2c(2)' FT'd2c(2)','d2c(2)' YD'd2c(2)','d2c(2)' MI'd2c(2)
    'RAW NOTICE 'NICK' :Weights: 'd2c(2)'G'd2c(2)', 'd2c(2)'KG'd2c(2)' <--> 'd2c(2)'OZ'd2c(2)','d2c(2)' LB'd2c(2)
    'RAW NOTICE 'NICK' :Temperature: 'd2c(2)'F'd2c(2)' <--> 'd2c(2)'C'd2c(2)' <--> 'd2c(2)'K'd2c(2)
    'RAW NOTICE 'NICK' :Volume: 'd2c(2)'TSP'd2c(2)','d2c(2)' TBSP'd2c(2)','d2c(2)' FLOZ'd2c(2)','d2c(2)' CUP'd2c(2)','d2c(2)' PT'd2c(2)','d2c(2)' QT'd2c(2)','d2c(2)' GAL'd2c(2)' <--> 'd2c(2)'ML'd2c(2)','d2c(2)' L'd2c(2)
    Signal MainLoop
  End
  If CnvtFrom = "F"    & CnvtTo = "C"    & DataType(CnvtNum,"N") = 1 then NewNum = ((CnvtNum - 32) * 5) / 9
  If CnvtFrom = "F"    & CnvtTo = "K"    & DataType(CnvtNum,"N") = 1 then NewNum = (((CnvtNum - 32) * 5) / 9) + 273.15
  If CnvtFrom = "C"    & CnvtTo = "F"    & DataType(CnvtNum,"N") = 1 then NewNum = ((CnvtNum * 9) / 5) + 32
  If CnvtFrom = "C"    & CnvtTo = "K"    & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum + 273.15
  If CnvtFrom = "K"    & CnvtTo = "C"    & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum - 273.15
  If CnvtFrom = "K"    & CnvtTo = "F"    & DataType(CnvtNum,"N") = 1 then NewNum = (((CnvtNum - 273.15) * 9) / 5) + 32

  If CnvtFrom = "MM"   & CnvtTo = "IN"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 0.039
  If CnvtFrom = "MM"   & CnvtTo = "FT"   & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 0.039) * 12
  If CnvtFrom = "MM"   & CnvtTo = "YD"   & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 0.039) * 36
  If CnvtFrom = "MM"   & CnvtTo = "MI"   & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 0.039) * 63360

  If CnvtFrom = "CM"   & CnvtTo = "IN"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 0.39
  If CnvtFrom = "CM"   & CnvtTo = "FT"   & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 0.39) * 12
  If CnvtFrom = "CM"   & CnvtTo = "YD"   & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 0.39) * 36
  If CnvtFrom = "CM"   & CnvtTo = "MI"   & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 0.39) * 63360

  If CnvtFrom = "M"    & CnvtTo = "IN"   & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 3.28) / 12
  If CnvtFrom = "M"    & CnvtTo = "FT"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 3.28
  If CnvtFrom = "M"    & CnvtTo = "YD"   & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 3.28) * 3
  If CnvtFrom = "M"    & CnvtTo = "MI"   & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 3.28) * 5280

  If CnvtFrom = "KM"   & CnvtTo = "IN"   & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 0.6) * 63360
  If CnvtFrom = "KM"   & CnvtTo = "FT"   & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 0.6) * 5280
  If CnvtFrom = "KM"   & CnvtTo = "YD"   & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 0.6) * 1760
  If CnvtFrom = "KM"   & CnvtTo = "MI"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 0.6

  If CnvtFrom = "IN"   & CnvtTo = "MM"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 25.4
  If CnvtFrom = "IN"   & CnvtTo = "CM"   & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 25.4) / 10
  If CnvtFrom = "IN"   & CnvtTo = "M"    & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 25.4) / 1000
  If CnvtFrom = "IN"   & CnvtTo = "KM"   & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 25.4) / 1000000
  If CnvtFrom = "IN"   & CnvtTo = "FT"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 12
  If CnvtFrom = "IN"   & CnvtTo = "YD"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 36
  If CnvtFrom = "IN"   & CnvtTo = "MI"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 63360

  If CnvtFrom = "FT"   & CnvtTo = "MM"   & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 0.304) * 1000
  If CnvtFrom = "FT"   & CnvtTo = "CM"   & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 0.304) * 100
  If CnvtFrom = "FT"   & CnvtTo = "M"    & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 0.304
  If CnvtFrom = "FT"   & CnvtTo = "KM"   & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 0.304) /1000
  If CnvtFrom = "FT"   & CnvtTo = "IN"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 12
  If CnvtFrom = "FT"   & CnvtTo = "YD"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 3
  If CnvtFrom = "FT"   & CnvtTo = "MI"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 5280

  If CnvtFrom = "YD"   & CnvtTo = "MM"   & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 0.91) * 1000
  If CnvtFrom = "YD"   & CnvtTo = "CM"   & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 0.91) * 100
  If CnvtFrom = "YD"   & CnvtTo = "M"    & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 0.91
  If CnvtFrom = "YD"   & CnvtTo = "KM"   & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 0.91) / 1000
  If CnvtFrom = "YD"   & CnvtTo = "IN"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 36
  If CnvtFrom = "YD"   & CnvtTo = "FT"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 3
  If CnvtFrom = "YD"   & CnvtTo = "MI"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 1760

  If CnvtFrom = "MI"   & CnvtTo = "MM"   & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 1.9) * 1000000
  If CnvtFrom = "MI"   & CnvtTo = "CM"   & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 1.9) * 100000
  If CnvtFrom = "MI"   & CnvtTo = "M"    & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 1.9) * 1000
  If CnvtFrom = "MI"   & CnvtTo = "KM"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 1.9
  If CnvtFrom = "MI"   & CnvtTo = "IN"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 63360
  If CnvtFrom = "MI"   & CnvtTo = "FT"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 5280
  If CnvtFrom = "MI"   & CnvtTo = "YD"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 1760

  If CnvtFrom = "G"    & CnvtTo = "OZ"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 0.035
  If CnvtFrom = "G"    & CnvtTo = "LB"   & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 0.035) / 16

  If CnvtFrom = "KG"   & CnvtTo = "OZ"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 35.2
  If CnvtFrom = "KG"   & CnvtTo = "LB"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 2.2

  If CnvtFrom = "OZ"   & CnvtTo = "G"    & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 28.44
  If CnvtFrom = "OZ"   & CnvtTo = "KG"   & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 28.44) / 1000
  If CnvtFrom = "OZ"   & CnvtTo = "LB"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 16

  If CnvtFrom = "LB"   & CnvtTo = "G"    & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 455
  If CnvtFrom = "LB"   & CnvtTo = "KG"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 0.455
  If CnvtFrom = "LB"   & CnvtTo = "OZ"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 16

  If CnvtFrom = "TSP"  & CnvtTo = "ML"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 5
  If CnvtFrom = "TSP"  & CnvtTo = "L"    & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 5) / 1000
  If CnvtFrom = "TSP"  & CnvtTo = "TBSP" & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 3
  If CnvtFrom = "TSP"  & CnvtTo = "FLOZ" & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 6
  If CnvtFrom = "TSP"  & CnvtTo = "CUP"  & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 48
  If CnvtFrom = "TSP"  & CnvtTo = "PT"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 96
  If CnvtFrom = "TSP"  & CnvtTo = "QT"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 192
  If CnvtFrom = "TSP"  & CnvtTo = "GAL"  & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 768

  If CnvtFrom = "TBSP" & CnvtTo = "ML"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 15
  If CnvtFrom = "TBSP" & CnvtTo = "L"    & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 15) / 1000
  If CnvtFrom = "TBSP" & CnvtTo = "TSP"  & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 3
  If CnvtFrom = "TBSP" & CnvtTo = "FLOZ" & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 2
  If CnvtFrom = "TBSP" & CnvtTo = "CUP"  & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 16
  If CnvtFrom = "TBSP" & CnvtTo = "PT"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 32
  If CnvtFrom = "TBSP" & CnvtTo = "QT"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 64
  If CnvtFrom = "TBSP" & CnvtTo = "GAL"  & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 256

  If CnvtFrom = "FLOZ" & CnvtTo = "ML"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 30
  If CnvtFrom = "FLOZ" & CnvtTo = "L"    & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum * 30) / 1000
  If CnvtFrom = "FLOZ" & CnvtTo = "TSP"  & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 6
  If CnvtFrom = "FLOZ" & CnvtTo = "TBSP" & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 2
  If CnvtFrom = "FLOZ" & CnvtTo = "CUP"  & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 8
  If CnvtFrom = "FLOZ" & CnvtTo = "PT"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 16
  If CnvtFrom = "FLOZ" & CnvtTo = "QT"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 32
  If CnvtFrom = "FLOZ" & CnvtTo = "GAL"  & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 128

  If CnvtFrom = "CUP"  & CnvtTo = "ML"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 240
  If CnvtFrom = "CUP"  & CnvtTo = "L"    & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * .24
  If CnvtFrom = "CUP"  & CnvtTo = "TSP"  & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 48
  If CnvtFrom = "CUP"  & CnvtTo = "TBSP" & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 16
  If CnvtFrom = "CUP"  & CnvtTo = "FLOZ" & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 8
  If CnvtFrom = "CUP"  & CnvtTo = "PT"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 2
  If CnvtFrom = "CUP"  & CnvtTo = "QT"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 4
  If CnvtFrom = "CUP"  & CnvtTo = "GAL"  & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 16

  If CnvtFrom = "PT"   & CnvtTo = "ML"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 470
  If CnvtFrom = "PT"   & CnvtTo = "L"    & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * .47
  If CnvtFrom = "PT"   & CnvtTo = "TSP"  & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 96
  If CnvtFrom = "PT"   & CnvtTo = "TBSP" & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 32
  If CnvtFrom = "PT"   & CnvtTo = "FLOZ" & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 16
  If CnvtFrom = "PT"   & CnvtTo = "CUP"  & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 2
  If CnvtFrom = "PT"   & CnvtTo = "QT"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 2
  If CnvtFrom = "PT"   & CnvtTo = "GAL"  & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 8

  If CnvtFrom = "QT"   & CnvtTo = "ML"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 950
  If CnvtFrom = "QT"   & CnvtTo = "L"    & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * .95
  If CnvtFrom = "QT"   & CnvtTo = "TSP"  & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 192
  If CnvtFrom = "QT"   & CnvtTo = "TBSP" & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 64
  If CnvtFrom = "QT"   & CnvtTo = "FLOZ" & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 32
  If CnvtFrom = "QT"   & CnvtTo = "CUP"  & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 4
  If CnvtFrom = "QT"   & CnvtTo = "PT"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 2
  If CnvtFrom = "QT"   & CnvtTo = "GAL"  & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 4

  If CnvtFrom = "GAL"  & CnvtTo = "ML"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 3800
  If CnvtFrom = "GAL"  & CnvtTo = "L"    & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 3.8
  If CnvtFrom = "GAL"  & CnvtTo = "TSP"  & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 768
  If CnvtFrom = "GAL"  & CnvtTo = "TBSP" & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 256
  If CnvtFrom = "GAL"  & CnvtTo = "FLOZ" & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 128
  If CnvtFrom = "GAL"  & CnvtTo = "CUP"  & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 16
  If CnvtFrom = "GAL"  & CnvtTo = "PT"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 8
  If CnvtFrom = "GAL"  & CnvtTo = "QT"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 4

  If CnvtFrom = "ML"   & CnvtTo = "TSP"  & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum / 30) * 6
  If CnvtFrom = "ML"   & CnvtTo = "TBSP" & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum / 30) * 2
  If CnvtFrom = "ML"   & CnvtTo = "FLOZ" & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum / 30
  If CnvtFrom = "ML"   & CnvtTo = "CUP"  & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum / 30) / 8
  If CnvtFrom = "ML"   & CnvtTo = "PT"   & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum / 30) / 16
  If CnvtFrom = "ML"   & CnvtTo = "QT"   & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum / 30) / 32
  If CnvtFrom = "ML"   & CnvtTo = "GAL"  & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum / 30) / 128
  If CnvtFrom = "ML"   & CnvtTo = "L"    & DataType(CnvtNum,"N") = 1 then NewNum = (CnvtNum / 1000)

  If CnvtFrom = "L"    & CnvtTo = "ML"   & DataType(CnvtNum,"N") = 1 then NewNum = CnvtNum * 1000
  If CnvtFrom = "L"    & CnvtTo = "TSP"  & DataType(CnvtNum,"N") = 1 then NewNum = ((CnvtNum * 1000) / 30) * 6
  If CnvtFrom = "L"    & CnvtTo = "TBSP" & DataType(CnvtNum,"N") = 1 then NewNum = ((CnvtNum * 1000) / 30) * 2
  If CnvtFrom = "L"    & CnvtTo = "FLOZ" & DataType(CnvtNum,"N") = 1 then NewNum = ((CnvtNum * 1000) / 30
  If CnvtFrom = "L"    & CnvtTo = "CUP"  & DataType(CnvtNum,"N") = 1 then NewNum = ((CnvtNum * 1000) / 30) / 8
  If CnvtFrom = "L"    & CnvtTo = "PT"   & DataType(CnvtNum,"N") = 1 then NewNum = ((CnvtNum * 1000) / 30) / 16
  If CnvtFrom = "L"    & CnvtTo = "QT"   & DataType(CnvtNum,"N") = 1 then NewNum = ((CnvtNum * 1000) / 30) / 32
  If CnvtFrom = "L"    & CnvtTo = "GAL"  & DataType(CnvtNum,"N") = 1 then NewNum = ((CnvtNum * 1000) / 30) / 128

  If NewNum ~= "NOT!" then Do
    If NewNum < 0 then NewNum = NewNum - .0001
    Else NewNum = NewNum + .0001
    NewNum = Left(NewNum,Pos(".",NewNum)+2)
    If Upper(ToWho) = Upper(MyNick) then Do
      'RAW NOTICE 'NICK' :'d2c(2)||CnvtNum||' '||CnvtFrom||d2c(2)' is approximately 'd2c(2)||NewNum||' '||CnvtTo||d2c(2)
    End
    Else Do
      'Say /Notice 'ToWho' 'NICK': 'd2c(2)||CnvtNum||' '||CnvtFrom||d2c(2)' is approximately 'd2c(2)||NewNum||' '||CnvtTo||d2c(2)
    End
  End
End
If (Type = "PRIVMSG") & ((Upper(Word(Rest,1)) = Trigger||"EXCHANGE") | (Upper(Word(Rest,1)) = Trigger||"CURRENCY")) then Do
  Amount = Upper(Word(Rest,2))
  Cur1 = Upper(Word(Rest,3))
  Cur2 = Upper(Word(Rest,4))
  CRNL = "0d0a"x

  If Amount = "" then Do
    If Upper(ToWho) = Upper(MyNick) then "Raw Notice "Nick" :Try using "D2C(2)||Trigger||"Exchange {Amount} {From Currency} {To Currency}"D2C(2)
    Else "Say /Notice "ToWho" "Nick": Try using "D2C(2)||Trigger||"Exchange {Amount} {From Currency} {To Currency}"D2C(2)
    Signal MainLoop
  End

  cntout = 0
  IF Amount = 'LIST' THEN DO
    IF UPPER(cur1) = "ALL" THEN DO
      DO x = 1 to 70
        'Raw Notice 'Nick' :'ratelist.x
        Call Delay(35)
      END
      cntout = 1
    END
    ELSE DO x = 1 to 70
      IF UPPER(cur1) = SUBSTR(ratelist.x,7,1) THEN DO
        cntout = 1
        'Raw Notice 'Nick' :'ratelist.x
        Call Delay(35)
      END
    END
    IF cntout = 0 THEN 'Raw Notice 'Nick' :No Country match for 'cur1
  END
  ELSE IF amount < 0 | amount > 100000000000000000 THEN DO
    If Upper(ToWho) = Upper(MyNick) then Do
      "Raw Notice "Nick" :I'm Sorry you entered an invalid amount..."
      "Raw Notice "Nick" :Try using "D2C(2)||Trigger||"Exchange {Amount} {From Currency} {To Currency}"D2C(2)
    End
    Else Do
      "Say /Notice "ToWho" "Nick": I'm Sorry you entered an invalid amount..."
      "Say /Notice "ToWho" "Nick": Try using "D2C(2)||Trigger||"Exchange {Amount} {From Currency} {To Currency}"D2C(2)
    End
  END
  ELSE DO
    SELECT
      WHEN Strip(Cur1) = "ARP" Then FromCurr = "Argentine Pesos"
      WHEN Strip(Cur1) = "ATS" Then FromCurr = "Austrian Schillings"
      WHEN Strip(Cur1) = "AUD" Then FromCurr = "Australian Dollars"
      WHEN Strip(Cur1) = "BBD" Then FromCurr = "Barbados Dollars"
      WHEN Strip(Cur1) = "BEF" Then FromCurr = "Belgium Francs"
      WHEN Strip(Cur1) = "BGL" Then FromCurr = "Bulgarian Lev"
      WHEN Strip(Cur1) = "BMD" Then FromCurr = "Bermuda Dollars"
      WHEN Strip(Cur1) = "BRR" Then FromCurr = "Brazilian Real"
      WHEN Strip(Cur1) = "BSD" Then FromCurr = "Bahamas Dollars"
      WHEN Strip(Cur1) = "CAD" Then FromCurr = "Canadian Dollars"
      WHEN Strip(Cur1) = "CHF" Then FromCurr = "Swiss Francs"
      WHEN Strip(Cur1) = "CLP" Then FromCurr = "Chilean Pesos"
      WHEN Strip(Cur1) = "CNY" Then FromCurr = "Chinese Yuan Renmimbi"
      WHEN Strip(Cur1) = "CSK" Then FromCurr = "Czech Republic Koruna"
      WHEN Strip(Cur1) = "CYP" Then FromCurr = "Cyprus Pounds"
      WHEN Strip(Cur1) = "DEM" Then FromCurr = "German Deutsche Marks"
      WHEN Strip(Cur1) = "DKK" Then FromCurr = "Danish Kroner"
      WHEN Strip(Cur1) = "DZD" Then FromCurr = "Algerian Dinars"
      WHEN Strip(Cur1) = "EGP" Then FromCurr = "Egyptian Pounds"
      WHEN Strip(Cur1) = "ESP" Then FromCurr = "Spanish Pesetas"
      WHEN Strip(Cur1) = "EUR" Then FromCurr = "European Currency"
      WHEN Strip(Cur1) = "FIM" Then FromCurr = "Finnish Markka"
      WHEN Strip(Cur1) = "FJD" Then FromCurr = "Fijian Dollars"
      WHEN Strip(Cur1) = "FRF" Then FromCurr = "French Francs"
      WHEN Strip(Cur1) = "GBP" Then FromCurr = "British Pounds"
      WHEN Strip(Cur1) = "GRD" Then FromCurr = "Greek Drachmas"
      WHEN Strip(Cur1) = "HKD" Then FromCurr = "Hong Kong Dollars"
      WHEN Strip(Cur1) = "HUF" Then FromCurr = "Hungarian Forint"
      WHEN Strip(Cur1) = "IDR" Then FromCurr = "Indonesian Rupiah"
      WHEN Strip(Cur1) = "IEP" Then FromCurr = "Irish Punt"
      WHEN Strip(Cur1) = "ILS" Then FromCurr = "Israeli New Shekels"
      WHEN Strip(Cur1) = "INR" Then FromCurr = "Indian Rupees"
      WHEN Strip(Cur1) = "ISK" Then FromCurr = "Icelandic Krona"
      WHEN Strip(Cur1) = "ITL" Then FromCurr = "Italian Lira"
      WHEN Strip(Cur1) = "JMD" Then FromCurr = "Jamaican Dollars"
      WHEN Strip(Cur1) = "JOD" Then FromCurr = "Jordan Dinar"
      WHEN Strip(Cur1) = "JPY" Then FromCurr = "Japanese Yen"
      WHEN Strip(Cur1) = "KRW" Then FromCurr = "South Korean Won"
      WHEN Strip(Cur1) = "LBP" Then FromCurr = "Lebanonise Pounds"
      WHEN Strip(Cur1) = "LUF" Then FromCurr = "Luxembourg Francs"
      WHEN Strip(Cur1) = "MXP" Then FromCurr = "Mexican Pesos"
      WHEN Strip(Cur1) = "MYR" Then FromCurr = "Malaysian Ringgit"
      WHEN Strip(Cur1) = "NLG" Then FromCurr = "Dutch Guilders"
      WHEN Strip(Cur1) = "NOK" Then FromCurr = "Norwegian Kroner"
      WHEN Strip(Cur1) = "NZD" Then FromCurr = "New Zealand Dollars"
      WHEN Strip(Cur1) = "PHP" Then FromCurr = "Philippine Pesos"
      WHEN Strip(Cur1) = "PKR" Then FromCurr = "Pakistan Rupees"
      WHEN Strip(Cur1) = "PLZ" Then FromCurr = "Polish Zloty"
      WHEN Strip(Cur1) = "PTE" Then FromCurr = "Portugese Escudo"
      WHEN Strip(Cur1) = "ROL" Then FromCurr = "Romanian Leu"
      WHEN Strip(Cur1) = "RUR" Then FromCurr = "Russian Rubles"
      WHEN Strip(Cur1) = "SAR" Then FromCurr = "Saudi Arabian Riyal"
      WHEN Strip(Cur1) = "SDD" Then FromCurr = "Sudanese Dinar"
      WHEN Strip(Cur1) = "SEK" Then FromCurr = "Swedish Krona"
      WHEN Strip(Cur1) = "SGD" Then FromCurr = "Singapore Dollars"
      WHEN Strip(Cur1) = "SKK" Then FromCurr = "Slovakia Koruna"
      WHEN Strip(Cur1) = "THB" Then FromCurr = "Thailand Baht"
      WHEN Strip(Cur1) = "TRL" Then FromCurr = "Turkish Lira"
      WHEN Strip(Cur1) = "TTD" Then FromCurr = "Trinidad and Tobago Dollars"
      WHEN Strip(Cur1) = "TWD" Then FromCurr = "Taiwanese Dollars"
      WHEN Strip(Cur1) = "USD" Then FromCurr = "American Dollars"
      WHEN Strip(Cur1) = "VEB" Then FromCurr = "Venezuelan Bolivar"
      WHEN Strip(Cur1) = "XAG" Then FromCurr = "Silver Ounces"
      WHEN Strip(Cur1) = "XAU" Then FromCurr = "Gold Ounces"
      WHEN Strip(Cur1) = "XCD" Then FromCurr = "Eastern Caribbean Dollars"
      WHEN Strip(Cur1) = "XDR" Then FromCurr = "Special Drawing Right (IMF)"
      WHEN Strip(Cur1) = "XPD" Then FromCurr = "Palladium Ounces"
      WHEN Strip(Cur1) = "XPT" Then FromCurr = "Platinum Ounces"
      WHEN Strip(Cur1) = "ZAR" Then FromCurr = "South African Rand"
      WHEN Strip(Cur1) = "ZMK" Then FromCurr = "Zambia Kwacha"
      OTHERWISE Do
        'Raw Notice 'Nick' :'cur1 'is an unknown Country code. Try '||Trigger||'EXCHANGE LIST <ALL or Letter> where Letter is first letter of country you are looking for.'
        Signal MainLoop
      End
    END

    SELECT
      WHEN Strip(Cur2) = "ARP" Then ToCurr = "Argentine Pesos"
      WHEN Strip(Cur2) = "ATS" Then ToCurr = "Austrian Schillings"
      WHEN Strip(Cur2) = "AUD" Then ToCurr = "Australian Dollars"
      WHEN Strip(Cur2) = "BBD" Then ToCurr = "Barbados Dollars"
      WHEN Strip(Cur2) = "BEF" Then ToCurr = "Belgium Francs"
      WHEN Strip(Cur2) = "BGL" Then ToCurr = "Bulgarian Lev"
      WHEN Strip(Cur2) = "BMD" Then ToCurr = "Bermuda Dollars"
      WHEN Strip(Cur2) = "BRR" Then ToCurr = "Brazilian Real"
      WHEN Strip(Cur2) = "BSD" Then ToCurr = "Bahamas Dollars"
      WHEN Strip(Cur2) = "CAD" Then ToCurr = "Canadian Dollars"
      WHEN Strip(Cur2) = "CHF" Then ToCurr = "Swiss Francs"
      WHEN Strip(Cur2) = "CLP" Then ToCurr = "Chilean Pesos"
      WHEN Strip(Cur2) = "CNY" Then ToCurr = "Chinese Yuan Renmimbi"
      WHEN Strip(Cur2) = "CSK" Then ToCurr = "Czech Republic Koruna"
      WHEN Strip(Cur2) = "CYP" Then ToCurr = "Cyprus Pounds"
      WHEN Strip(Cur2) = "DEM" Then ToCurr = "German Deutsche Marks"
      WHEN Strip(Cur2) = "DKK" Then ToCurr = "Danish Kroner"
      WHEN Strip(Cur2) = "DZD" Then ToCurr = "Algerian Dinars"
      WHEN Strip(Cur2) = "EGP" Then ToCurr = "Egyptian Pounds"
      WHEN Strip(Cur2) = "ESP" Then ToCurr = "Spanish Pesetas"
      WHEN Strip(Cur2) = "EUR" Then ToCurr = "European Currency"
      WHEN Strip(Cur2) = "FIM" Then ToCurr = "Finnish Markka"
      WHEN Strip(Cur2) = "FJD" Then ToCurr = "Fijian Dollars"
      WHEN Strip(Cur2) = "FRF" Then ToCurr = "French Francs"
      WHEN Strip(Cur2) = "GBP" Then ToCurr = "British Pounds"
      WHEN Strip(Cur2) = "GRD" Then ToCurr = "Greek Drachmas"
      WHEN Strip(Cur2) = "HKD" Then ToCurr = "Hong Kong Dollars"
      WHEN Strip(Cur2) = "HUF" Then ToCurr = "Hungarian Forint"
      WHEN Strip(Cur2) = "IDR" Then ToCurr = "Indonesian Rupiah"
      WHEN Strip(Cur2) = "IEP" Then ToCurr = "Irish Punt"
      WHEN Strip(Cur2) = "ILS" Then ToCurr = "Israeli New Shekels"
      WHEN Strip(Cur2) = "INR" Then ToCurr = "Indian Rupees"
      WHEN Strip(Cur2) = "ISK" Then ToCurr = "Icelandic Krona"
      WHEN Strip(Cur2) = "ITL" Then ToCurr = "Italian Lira"
      WHEN Strip(Cur2) = "JMD" Then ToCurr = "Jamaican Dollars"
      WHEN Strip(Cur2) = "JOD" Then ToCurr = "Jordan Dinar"
      WHEN Strip(Cur2) = "JPY" Then ToCurr = "Japanese Yen"
      WHEN Strip(Cur2) = "KRW" Then ToCurr = "South Korean Won"
      WHEN Strip(Cur2) = "LBP" Then ToCurr = "Lebanonise Pounds"
      WHEN Strip(Cur2) = "LUF" Then ToCurr = "Luxembourg Francs"
      WHEN Strip(Cur2) = "MXP" Then ToCurr = "Mexican Pesos"
      WHEN Strip(Cur2) = "MYR" Then ToCurr = "Malaysian Ringgit"
      WHEN Strip(Cur2) = "NLG" Then ToCurr = "Dutch Guilders"
      WHEN Strip(Cur2) = "NOK" Then ToCurr = "Norwegian Kroner"
      WHEN Strip(Cur2) = "NZD" Then ToCurr = "New Zealand Dollars"
      WHEN Strip(Cur2) = "PHP" Then ToCurr = "Philippine Pesos"
      WHEN Strip(Cur2) = "PKR" Then ToCurr = "Pakistan Rupees"
      WHEN Strip(Cur2) = "PLZ" Then ToCurr = "Polish Zloty"
      WHEN Strip(Cur2) = "PTE" Then ToCurr = "Portugese Escudo"
      WHEN Strip(Cur2) = "ROL" Then ToCurr = "Romanian Leu"
      WHEN Strip(Cur2) = "RUR" Then ToCurr = "Russian Rubles"
      WHEN Strip(Cur2) = "SAR" Then ToCurr = "Saudi Arabian Riyal"
      WHEN Strip(Cur2) = "SDD" Then ToCurr = "Sudanese Dinar"
      WHEN Strip(Cur2) = "SEK" Then ToCurr = "Swedish Krona"
      WHEN Strip(Cur2) = "SGD" Then ToCurr = "Singapore Dollars"
      WHEN Strip(Cur2) = "SKK" Then ToCurr = "Slovakia Koruna"
      WHEN Strip(Cur2) = "THB" Then ToCurr = "Thailand Baht"
      WHEN Strip(Cur2) = "TRL" Then ToCurr = "Turkish Lira"
      WHEN Strip(Cur2) = "TTD" Then ToCurr = "Trinidad and Tobago Dollars"
      WHEN Strip(Cur2) = "TWD" Then ToCurr = "Taiwanese Dollars"
      WHEN Strip(Cur2) = "USD" Then ToCurr = "American Dollars"
      WHEN Strip(Cur2) = "VEB" Then ToCurr = "Venezuelan Bolivar"
      WHEN Strip(Cur2) = "XAG" Then ToCurr = "Silver Ounces"
      WHEN Strip(Cur2) = "XAU" Then ToCurr = "Gold Ounces"
      WHEN Strip(Cur2) = "XCD" Then ToCurr = "Eastern Caribbean Dollars"
      WHEN Strip(Cur2) = "XDR" Then ToCurr = "Special Drawing Right (IMF)"
      WHEN Strip(Cur2) = "XPD" Then ToCurr = "Palladium Ounces"
      WHEN Strip(Cur2) = "XPT" Then ToCurr = "Platinum Ounces"
      WHEN Strip(Cur2) = "ZAR" Then ToCurr = "South African Rand"
      WHEN Strip(Cur2) = "ZMK" Then ToCurr = "Zambia Kwacha"
      OTHERWISE Do
        'Raw Notice 'Nick' :'cur2 'is an unknown Country code. Try '||Trigger||'EXCHANGE LIST <ALL or Letter> where Letter is first letter of country you are looking for.'
        Signal MainLoop
      End
    END

    ratesendline ='Amount='amount'&From='cur1'&To='cur2
    contentlength = length(ratesendline)

    IF ~SHOWLIST(H,'TCP') THEN ADDRESS COMMAND 'Mount TCP:'
    IF SHOWLIST(H,'TCP') THEN DO
      IF OPEN(1,'TCP:www.xe.net/80','W') THEN DO
        CALL WRITECH(1,'POST /cgi-bin/ucc/convert HTTP/1.0')
        CALL WRITECH(1,'User-Agent: CTCP-Master/1.10; (AmIRC Extension Package)'||crnl)
        CALL WRITECH(1,'Accept: *;q=1'||crnl)
        CALL WRITECH(1,'Host: www.xe.net'||crnl)
        CALL WRITECH(1,'Content-Length: 'contentlength||crnl)
        CALL WRITECH(1,'Content-Type: application/x-www-form-urlencodedwidth'||crnl)
        CALL WRITECH(1,crnl)
        CALL WRITECH(1,ratesendline||crnl)

        txt=READLN(1)
        IF SUBWORD(txt,2,1)='500' THEN DO
          'ECHO P='d2c(27)'b«CTCPMaster» Server Error!'
          CALL WRITELN(1,'Quit')
          CALL CLOSE(1)
        END
        ELSE IF SUBWORD(txt,2,1)='200' THEN DO
          DO UNTIL EOF(1)
            txt=READLN(1)
            IF subword(txt,2,2)='as of' THEN DO
              OnDate = Translate(Date("N",Compress(Word(txt,4),"."),"S"),"-"," ")
            END
            IF Left(Word(txt,8),3) = cur1 then Do
               parse var txt blah '<B>' d1 '</B>' blah .
            END
            IF Left(Word(txt,8),3) = cur2 then Do
               parse var txt blah '<B>' d2 '</B>' blah .
               d2 = left(word(d2,1),pos(".",d2)+2)||" "||word(d2,2)
            END
          END
          CALL WRITELN(1,'Quit')
          CALL CLOSE(1)
          dataline = d1||' ('||FromCurr||') is worth '||d2||' ('||ToCurr||')'
          If Upper(ToWho) = Upper(MyNick) then 'Raw Notice 'Nick' :On 'OnDate',' dataline 'at http://www.xe.net/ucc/'
          Else 'Say /Notice 'ToWho' 'Nick': On 'OnDate',' dataline 'at http://www.xe.net/ucc/'
        END
      END
    END
  END
END
If (Type = "PRIVMSG") & (Upper(Word(Rest,1)) = Trigger||"TEMP") then Do
  CityZip = SubWord(Rest,2)
  ZIP = Translate(CityZip,"+"," ")
  NewCity = "NOWHERE"
  IF ~SHOWLIST(H,'TCP') THEN ADDRESS COMMAND 'Mount TCP:'
  IF SHOWLIST(H,'TCP') THEN DO
    IF OPEN(1,'TCP:www.wunderground.com/80','W') THEN DO
      CALL WRITECH(1,'GET /cgi-bin/findweather/getForecast?query='ZIP' HTTP/1.1')
      CALL WRITECH(1,'User-Agent: CTCP-Master/1.10; (AmIRC Extension Package)'||crnl)
      CALL WRITECH(1,'Accept: *;q=1'||crnl)
      CALL WRITECH(1,'Accept-Language: en'||crnl)
      CALL WRITECH(1,'Host: www.wunderground.com'||crnl)
      CALL WRITECH(1,'Referer: http://www.wunderground.com/cgi-bin/findweather/getForecast?query='ZIP||crnl)
      CALL WRITECH(1,crnl)

      txt=READLN(1)
      IF SUBWORD(txt,2,1)='500' THEN DO
        'ECHO P='d2c(27)'b«CTCPMaster» Server Error!'
        CALL WRITELN(1,'Quit')
        CALL CLOSE(1)
      END
      ELSE IF SUBWORD(txt,2,1)='200' THEN DO
        DO UNTIL EOF(1)
          txt=READLN(1)
          If txt ~= "" then Do
            IF Left(txt,37) = '<td><b><font size="+1" color=#ffffff>' Then Do
              Parse VAR txt '<td><b><font size="+1" color=#ffffff>'Location' Forecast'
            End
            IF txt='<tr ><td>Temperature</td>' THEN DO
              txt = readln(1)
              Parse VAR txt 'F / <b>'CTemp'</b>'
              Parse VAR txt '<td><b>'FTemp'</b>'
              Parse VAR FTemp FTemp'°'
              If CTemp = "" then Temperature = FTemp||"°F"
              Else Temperature = FTemp||"°F / "CTemp"°C"
              NewCity = "FOUND"
              Leave
            END
            IF Left(txt,28)='<tr bgcolor=#ffffff  ><td  >' Then Do
              Parse VAR txt '.html">'Location'</a>'
              Parse VAR txt 'F / 'CTemp'° C'
              Parse VAR txt '<td>'FTemp'° F'
              If CTemp = "" then Temperature = FTemp||"°F"
              Else Temperature = FTemp||"°F / "CTemp"°C"
              NewCity = "FOUND"
              Leave
            END
            IF txt="We're sorry but the page you requested was not found." THEN DO
              NewCity = 'NOWHERE'
              Leave
            END
          END
        END
        CALL WRITELN(1,'Quit')
        CALL CLOSE(1)
        If NewCity = 'FOUND' then Do
          If Upper(ToWho) = Upper(MyNick) then 'Raw Notice 'Nick' :Temperature for 'Location': currently 'Temperature'.'
          Else 'Say /Notice 'ToWho' 'Nick': Temperature for 'Location': currently 'Temperature'.'
        End
        Else Do
          If Upper(ToWho) = Upper(MyNick) then 'Raw Notice 'Nick' :Sorry, 'CityZip' was not found in the weather database.'
          Else 'Say /Notice 'ToWho' 'Nick': Sorry, 'CityZip' was not found in the weather database.'
        END
      END
    END
  END
End
If (Type = "PRIVMSG") & (Upper(Word(Rest,1)) = Trigger||"ZIP") then Do
  ZIP = Word(Rest,2)
  sendline = "ctystzip="zip"&Submit=Process"
  contentlength = length(sendline)
  IF ~SHOWLIST(H,'TCP') THEN ADDRESS COMMAND 'Mount TCP:'
  IF SHOWLIST(H,'TCP') THEN DO
    IF OPEN(1,'TCP:www.usps.gov/80','W') THEN DO
      CALL WRITECH(1,'POST /cgi-bin/zip4/ctystzip2 HTTP/1.0')
      CALL WRITECH(1,'User-Agent: CTCP-Master/1.10; (AmIRC Extension Package)'||crnl)
      CALL WRITECH(1,'Accept: *;q=1'||crnl)
      CALL WRITECH(1,'Accept-Language: en'||crnl)
      CALL WRITECH(1,'Host: www.usps.gov'||crnl)
      CALL WRITECH(1,'Referer: http://www.usps.gov/ncsc/lookups/lookup_ctystzip.html'||crnl)
      CALL WRITECH(1,'Content-Length: 'contentlength||crnl)
      CALL WRITECH(1,'Content-Type: application/x-www-form-urlencodedwidth'||crnl)
      CALL WRITECH(1,crnl)
      CALL WRITECH(1,sendline||crnl)

      txt=READLN(1)
      IF SUBWORD(txt,2,1)='500' THEN DO
        'ECHO P='d2c(27)'b«CTCPMaster» Server Error!'
        CALL WRITELN(1,'Quit')
        CALL CLOSE(1)
      END
      ELSE IF SUBWORD(txt,2,1)='200' THEN DO
        DO UNTIL EOF(1)
          txt=READLN(1)
          If txt ~= "" then Do
            IF subword(txt,1,4)='For this ZIP Code,' THEN DO
              Parse VAR txt '<BR>'City'ACCEPTABLE'
              NewCity = SubWord(City,1,Words(City)-1)||", "Word(City,Words(City))
              Leave
            END
            IF subword(txt,1,4)='The ZIP Code you' THEN DO
              NewCity = 'NOWHERE'
              Leave
            END
          END
        END
        CALL WRITELN(1,'Quit')
        CALL CLOSE(1)
        If NewCity ~='NOWHERE' then Do
          If Upper(ToWho) = Upper(MyNick) then 'Raw Notice 'Nick' :Zip Code 'Zip' is assigned to 'NewCity'.'
          Else 'Say /Notice 'ToWho' 'Nick': Zip Code 'Zip' is assigned to 'NewCity'.'
        End
        Else Do
          If Upper(ToWho) = Upper(MyNick) then 'Raw Notice 'Nick' :Zip Code 'Zip' is not currently assigned.'
          Else 'Say /Notice 'ToWho' 'Nick': Zip Code 'Zip' is not currently assigned.'
        END
      END
    END
  END
End
If (Type = "PRIVMSG") & (Upper(Word(Rest,1)) = Trigger||"FIND") then Do
  Target = SubWord(Rest,2)
  CRNL = "0d0a"x
  sendline ='find?'||Target
  contentlength = length(sendline)
  IF ~SHOWLIST(H,'TCP') THEN ADDRESS COMMAND 'Mount TCP:'
  IF SHOWLIST(H,'TCP') THEN DO
    IF OPEN(1,'TCP:ftp.uni-paderborn.de/80','W') THEN DO
      CALL WRITECH(1,'POST /aminetbin/find?'||Target||' HTTP/1.0')
      CALL WRITECH(1,'User-Agent: CTCP-Master/1.10; (AmIRC Extension Package)'||crnl)
      CALL WRITECH(1,'Accept: *;q=1'||crnl)
      CALL WRITECH(1,'Host: wuarchive.wustl.edu'||crnl)
      CALL WRITECH(1,'Content-Length: 'contentlength||crnl)
      CALL WRITECH(1,'Content-Type: application/x-www-form-urlencodedwidth'||crnl)
      CALL WRITECH(1,crnl)
      CALL WRITECH(1,sendline||crnl)
      txt=READLN(1)
      IF SUBWORD(txt,2,1)='500' THEN DO
        'ECHO P='d2c(27)'b«CTCPMaster» Server Error!'
        CALL WRITELN(1,'Quit')
        CALL CLOSE(1)
      END
      ELSE IF SUBWORD(txt,2,1)='200' THEN DO
        Report = 0
        DO UNTIL EOF(1)
          txt=READLN(1)
          If Length(txt) > 0 then DO
            If Words(txt) >= 4 THEN DO
              If Word(txt,1) = "First" & SubWord(txt,3,2) = "files matching" then Do
                'Raw Notice 'Nick' :Over 'SubWord(txt,2,3)' 'Target'.'
                'Raw Notice 'Nick' :First 10 matches are listed.'
              End
              If SubWord(txt,2,2)='files matching' THEN DO
                FoundFiles = Word(txt,1)
                'Raw Notice 'Nick' :'SubWord(txt,1,4)
                If FoundFiles > 10 Then 'Raw Notice 'Nick' :First 10 matches are listed.'
              END
            END
            IF Word(txt,1)='<hr><a' THEN DO
              txt = SubStr(txt,5)
            END
            If Left(txt,8)='<a href=' THEN DO
              FilePath = SubStr(txt,21,Pos(">",txt)-22)
              FilePath = SubStr(FilePath,LastPos("/",FilePath)+1)
              FileComment = Word(txt,7)
              FileComment = SubStr(FileComment,Pos(">",FileComment)+1)
              FileComment = FileComment||" "||subWord(txt,8)
              FileComment = Left(FileComment,Length(FileComment)-4)
              FileComment = Left(FileComment,44)
              'Raw Notice 'Nick' :'FilePath||Copies(" ",25 - Length(FilePath))||Word(txt,3)||Copies(" ",10 - Length(Word(txt,3)))||Right(Word(txt,4),7)||"  "||FileComment
              Report = Report + 1
              Call Delay(75)
              If Report > 9 then Leave
            END
          END
        END
        CALL WRITELN(1,'Quit')
        CALL CLOSE(1)
      END
    END
    Else 'Echo Failed to connect to Aminet!'
  END
END
If (Type = "PRIVMSG") & (Upper(Word(Rest,1)) = Trigger||"MONTH") then Do
  Call Calendar
End
If (Type = "PRIVMSG") & (Upper(Word(Rest,1)) = Trigger||"TRANSLATE") then Do
  FromLang = Translate(Word(Rest,2),XRange("a","z"),XRange("A","Z"))
  ToLang = Translate(Word(Rest,3),XRange("a","z"),XRange("A","Z"))
  If FromLang = "from" then Do
    If ToLang = "spanish" then FromLang = "es"
    If ToLang = "french" then FromLang = "fr"
    If ToLang = "italian" then FromLang = "it"
    If ToLang = "german" then FromLang = "de"
    If ToLang = "portuguese" then FromLang = "pt"
    ToLang = "en"
  End
  If FromLang = "to" then Do
    If ToLang = "spanish" then ToLang = "es"
    If ToLang = "french" then ToLang = "fr"
    If ToLang = "italian" then ToLang = "it"
    If ToLang = "german" then ToLang = "de"
    If ToLang = "portuguese" then ToLang = "pt"
    FromLang = "en"
  End
  If FromLang ~= "es" & FromLang ~= "en" & FromLang ~= "fr" & FromLang ~= "de" & FromLang ~= "it" & FromLang ~= "pt" & ToLang ~= "es" & ToLang ~= "en" & ToLang ~= "fr" & ToLang ~= "de" & ToLang ~= "it" & ToLang ~= "pt" Then Do
    If Upper(ToWho) = Upper(MyNick) then Do
      'Raw Notice 'Nick' :Invalid language option.  EN-English, ES-Spanish, FR-French, DE-German, IT-Italian, or PT-Portuguese'
      'Raw Notice 'Nick' :Format is  '||Trigger||'TRANSLATE {From} {To} {Text to translate}'
      'Raw Notice 'Nick' :You must translate to or from English'
    End
    Else Do
      'Say /Notice 'ToWho' 'Nick': Invalid language option.  EN-English, ES-Spanish, FR-French, DE-German, IT-Italian, or PT-Portuguese'
      'Say /Notice 'ToWho' 'Nick': Format is  '||Trigger||'TRANSLATE {From} {To} {Text to translate}'
      'Say /Notice 'ToWho' 'Nick': You must translate to or from English'
    End
  End
  Phrase = Translate(SubWord(Rest,4),"+"," ")
  CRNL = "0d0a"x
  sendline ="doit=done&urltext="Phrase"&lp="FromLang"_"ToLang
  contentlength = length(sendline)
  IF ~SHOWLIST(H,'TCP') THEN ADDRESS COMMAND 'Mount TCP:'
  IF SHOWLIST(H,'TCP') THEN DO
    IF OPEN(1,'TCP:babelfish.altavista.com/80','W') THEN DO
      CALL WRITECH(1,'POST /cgi-bin/translate? HTTP/1.0')
      CALL WRITECH(1,'Referer: http://babelfish.altavista.com/cgi-bin/translate?'||sendline||crnl)
      CALL WRITECH(1,'User-Agent: CTCP-Master/1.10; (AmIRC Extension Package)'||crnl)
      CALL WRITECH(1,'Host: babelfish.altavista.com'||crnl)
      CALL WRITECH(1,'If-Modified-Since: 'Left(Date(W),3)||' '||Date()||' 'Time()' GMT'||crnl)
      CALL WRITECH(1,'Content-Length: 'contentlength||crnl)
      CALL WRITECH(1,'Content-Type: application/x-www-form-urlencoded'||crnl)
      CALL WRITECH(1,'Accept: text/html;level=3'||crnl)
      CALL WRITECH(1,'Accept: text/html;version=3.0'||crnl)
      CALL WRITECH(1,'Accept: */*'||crnl)
      CALL WRITECH(1,crnl)
      CALL WRITECH(1,sendline)
      txt=READLN(1)
      IF SUBWORD(txt,2,1)='500' THEN DO
        'ECHO P='d2c(27)'b«CTCPMaster» Server Error!'
        CALL WRITELN(1,'Quit')
        CALL CLOSE(1)
      END
      ELSE IF SUBWORD(txt,2,1)='200' THEN DO
        Report = 0
        DO UNTIL EOF(1)
          txt=READLN(1)
          If Length(txt) > 30 then DO
            If Left(txt,30) = '<font face="arial, helvetica">' & Right(txt,7) ~= "</font>" THEN DO
              NewPhrase = SubStr(txt,31)
              Do Forever
                txt=READLN(1)
                If Left(txt,8) = "<br><br>" then Break
                NewPhrase = NewPhrase||" "||txt
              End
              If Upper(ToWho) = Upper(MyNick) then 'Raw Notice 'Nick' :Translation is "'NewPhrase'"'
              Else 'Say /Notice 'ToWho' 'Nick': Translation is "'NewPhrase'"'
            END
          END
        END
        CALL WRITELN(1,'Quit')
        CALL CLOSE(1)
      END
    END
    Else 'Echo Failed to connect to Altavista!'
  END
END

LastLine = Line
Signal MainLoop

ReadOPs:
NumOps = 0
If Exists("AmIRC:Rexx/CTCP-OPsList") then Do
  Call Open(Ops,"AmIRC:Rexx/CTCP-OPsList","R")
    NumOps = 1
    Do Until EOF(Ops)
      Line = ReadLn(Ops)
      If Left(Line,1) = ";" then Iterate
      If Left(Line,1) = "#" then Do
        OpChannel.NumOps = Word(Line,1)
        OpHost.NumOps    = Word(Line,2)
        OpNick.NumOps    = Word(Line,3)
        NumOps = NumOps + 1
      End
    End
  Call Close(Ops)
  NumOps = NumOps - 1
  If NumOps = 1 then 'ECHO P='d2c(27)'b«CTCPMaster» Monitoring 'NumOps' Auto-OP Hostmask...'
  Else 'ECHO P='d2c(27)'b«CTCPMaster» Monitoring 'NumOps' Auto-OP Hostmasks...'
End
Return

WriteOps:
Call Open(Ops,"AmIRC:Rexx/CTCP-OPsList","W")
  Call WriteLn(Ops,"; List of people to Auto-OP and on which channel.")
  Call WriteLn(Ops,"; Entries are not case sensitive.")
  Call WriteLn(Ops,";")
  Call WriteLn(Ops,";Channel        HostMask                       Nick")
  Call WriteLn(Ops,";-------------- ------------------------------ -------------------")
  Do Loop = 1 to NumOps
    Call WriteLn(Ops,Left(OpChannel.Loop,15)||" "||Left(OpHost.Loop,30)||" "||OpNick.Loop)
  End
Call Close(Ops)
Return

GetMask:
HA = Translate(HA,XRange("a","z"),XRange("A","Z"))
HA = Strip(HA,"L","~")
HA2 = SubStr(HA,Pos("@",HA)+1)
User = Left(HA,Pos("@",HA)-1)
HA = Translate(HA2,"  ","@.")
Number = 0
Found = 0
If Words(HA) = 4 then Do
  If Datatype(Compress(HA),"N") = 1 then Do
    HATemp = User"@"HA2
    Found = 1
  End
End
If Found = 0 then Do
  Do Loop = 1 to Words(HA)
    Do X = 0 to 9
      If Pos(X,Word(HA,Loop)) > 0 then Number = Loop
    End
  End
  If Number ~= 0 then Do
    HATemp = User"@*"
    Do Loop = Number +1 to Words(HA)
      HATemp = HATemp||"."Word(HA,Loop)
    End
    Found = 1
  End
End
If Found = 1 then HA = HATemp
Else HA = USER||"@"||HA2
Return

Calendar:
Now = Date("S")
Year = Left(Now,4)
Mon = SubStr(Now,5,2)
Today = Right(Now,2)
If Left(Mon,1) = 0 then Mon = Right(Mon,1)
If Left(Today,1) = 0 then Today = Right(Today,1)
If Year < 1978 then Year = 1978

Month.1 = 31
Month.2 = 28
Month.3 = 31
Month.4 = 30
Month.5 = 31
Month.6 = 30
Month.7 = 31
Month.8 = 31
Month.9 = 30
Month.10= 31
Month.11= 30
Month.12= 31

If (Year/4 = Year%4) then Do
  Month.2 = 29
  If (Year/100 = Year%100) then Do
    If (Year/400 ~= Year%400) then Month.2 = 28
  End
End

Day = Date("W",Year||Right("00"||Mon,2)||"01","S")
Select
 When Day = "Sunday" then Buffer = 0
 When Day = "Monday" then Buffer = 1
 When Day = "Tuesday" then Buffer = 2
 When Day = "Wednesday" then Buffer = 3
 When Day = "Thursday" then Buffer = 4
 When Day = "Friday" then Buffer = 5
 When Day = "Saturday" then Buffer = 6
 Otherwise NOP
End
Hot = ((Today + Buffer) * 2 ) - 1

Dates = Copies("  ",Buffer)||Left(" 1 2 3 4 5 6 7 8 910111213141516171819202122232425262728293031",Month.Mon * 2)

Count = 0
'ECHO P='d2c(27)'b«CTCPMaster» Sending the Calendar to 'Nick'...'
'Raw Notice 'Nick' :          'Date('M')||' 'Year
'Raw Notice 'Nick' :Sun  Mon  Tues Weds Thur Fri  Sat'
Week = " "
Do Loop = 1 to Length(Dates) by 2
  If Loop = Hot then Week = Week||D2C(22)||SubStr(Dates,Loop,2)||D2C(22)||"   "
  Else Week = Week||SubStr(Dates,Loop,2)"   "
  Count = Count + 1
  If Count = 7 then Do
    Count = 0
    'Raw Notice 'Nick' :'Week
    Week = " "
  End
End
If Week ~= " " then 'Raw Notice 'Nick' :'Week
Return

Halt:
Syntax:
Error:
Call ClosePort("CTCP-MASTER")
ErrorLine= SigL
'ECHO P='d2c(27)'b«CTCPMaster» Exiting...Error in line 'ErrorLine'!'
Exit

RateList:

ratelist.1 = "ARP = Argentina Pesos"
ratelist.2 = "ATS = Austria Schillings"
ratelist.3 = "AUD = Australia Dollars"
ratelist.4 = "BBD = Barbados Dollars"
ratelist.5 = "BEF = Belgium Francs"
ratelist.6 = "BGL = Bulgaria Lev"
ratelist.7 = "BMD = Bermuda Dollars"
ratelist.8 = "BRR = Brazil Real"
ratelist.9 = "BSD = Bahamas Dollars"
ratelist.10 = "CAD = Canada Dollars"
ratelist.11 = "CHF = Switzerland Francs"
ratelist.12 = "CLP = Chile Pesos"
ratelist.13 = "CNY = China Yuan Renmimbi"
ratelist.14 = "CSK = Czech Republic Koruna"
ratelist.15 = "CYP = Cyprus Pounds"
ratelist.16 = "DEM = Germany Deutsche Marks"
ratelist.17 = "DKK = Denmark Kroner"
ratelist.18 = "DZD = Algeria Dinars"
ratelist.19 = "EGP = Egypt Pounds"
ratelist.20 = "ESP = Spain Pesetas"
ratelist.21 = "EUR = Euro"
ratelist.22 = "FIM = Finland Markka"
ratelist.23 = "FJD = Fiji Dollars"
ratelist.24 = "FRF = France Francs"
ratelist.25 = "GBP = United Kingdom Pounds"
ratelist.26 = "GRD = Greece Drachmas"
ratelist.27 = "HKD = Hong Kong Dollars"
ratelist.28 = "HUF = Hungary Forint"
ratelist.29 = "IDR = Indonesia Rupiah"
ratelist.30 = "IEP = Ireland Punt"
ratelist.31 = "ILS = Israel New Shekels"
ratelist.32 = "INR = India Rupees"
ratelist.33 = "ISK = Iceland Krona"
ratelist.34 = "ITL = Italy Lira"
ratelist.35 = "JMD = Jamaica Dollars"
ratelist.36 = "JOD = Jordan Dinar"
ratelist.37 = "JPY = Japan Yen"
ratelist.38 = "KRW = South Korea Won"
ratelist.39 = "LBP = Lebanon Pounds"
ratelist.40 = "LUF = Luxembourg Francs"
ratelist.41 = "MXP = Mexico Pesos"
ratelist.42 = "MYR = Malaysia Ringgit"
ratelist.43 = "NLG = Dutch Guilders"
ratelist.44 = "NOK = Norway Kroner"
ratelist.45 = "NZD = New Zealand Dollars"
ratelist.46 = "PHP = Philippines Pesos"
ratelist.47 = "PKR = Pakistan Rupees"
ratelist.48 = "PLZ = Poland Zloty"
ratelist.49 = "PTE = Portugal Escudo"
ratelist.50 = "ROL = Romania Leu"
ratelist.51 = "RUR = Russia Rubles"
ratelist.52 = "SAR = Saudi Arabia Riyal"
ratelist.53 = "SDD = Sudan Dinar"
ratelist.54 = "SEK = Sweden Krona"
ratelist.55 = "SGD = Singapore Dollars"
ratelist.56 = "SKK = Slovakia Koruna"
ratelist.57 = "THB = Thailand Baht"
ratelist.58 = "TRL = Turkey Lira"
ratelist.59 = "TTD = Trinidad and Tobago Dollars"
ratelist.60 = "TWD = Taiwan Dollars"
ratelist.61 = "USD = United States Dollars"
ratelist.62 = "VEB = Venezuela Bolivar"
ratelist.63 = "XAG = Silver Ounces"
ratelist.64 = "XAU = Gold Ounces"
ratelist.65 = "XCD = Eastern Caribbean Dollars"
ratelist.66 = "XDR = Special Drawing Right (IMF)"
ratelist.67 = "XPD = Palladium Ounces"
ratelist.68 = "XPT = Platinum Ounces"
ratelist.69 = "ZAR = South Africa Rand"
ratelist.70 = "ZMK = Zambia Kwacha"
Return

CaseConvert: Procedure
  Arg cc
  cc = Translate(cc,XRange("a","z"),XRange("A","Z"))
  tmp = ""
  Do a = 1 To Words(cc)
    Select
      When Upper(Left(Word(cc,a),2)) = "O'" Then tmp = tmp||"O'"||Upper(SubStr(Word(cc,a),3,1))||SubStr(Word(cc,a),4)||" "
      When Upper(Left(Word(cc,a),2)) = "MC" Then tmp = tmp||"Mc"||Upper(SubStr(Word(cc,a),3,1))||SubStr(Word(cc,a),4)||" "
      When Upper(Left(Word(cc,a),3)) = "MAC" Then tmp = tmp||"Mac"||Upper(SubStr(Word(cc,a),4,1))||SubStr(Word(cc,a),5)||" "
      Otherwise tmp = tmp||Upper(Left(Word(cc,a),1))||SubStr(Word(cc,a),2)||" "
    End
  End
  cc = Strip(tmp)
Return cc